infant_mortality_map <- ggplot() +
geom_sf(data = chicago_health_map, aes(fill = Infant.Mortality.Rate)) +
scale_fill_continuous(type = "viridis") +
geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))
## Warning: Ignoring unknown aesthetics: text
ggplotly(infant_mortality_map, tooltip = "desc")
teen_birth_rate_map <- ggplot() +
geom_sf(data = chicago_health_map, aes(fill = Teen.Birth.Rate)) +
scale_fill_continuous(type = "viridis") +
geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))
## Warning: Ignoring unknown aesthetics: text
ggplotly(teen_birth_rate_map, tooltip = "desc")
poverty_level_map <- ggplot() +
geom_sf(data = chicago_health_map, aes(fill = Below.Poverty.Level)) +
scale_fill_continuous(type = "viridis") +
geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))
## Warning: Ignoring unknown aesthetics: text
ggplotly(poverty_level_map, tooltip = "desc")
unemployment_map <- ggplot() +
geom_sf(data = chicago_health_map, aes(fill = Unemployment)) +
scale_fill_continuous(type = "viridis") +
geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))
## Warning: Ignoring unknown aesthetics: text
ggplotly(unemployment_map, tooltip = "desc")